From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 25 Nov 2003 21:20:51 +0000 (+0000)
Subject: (comment-normalize-vars): Initialize properly if comment-start was nil.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24890
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9d4f3473035bfaf5a34ac117fa0f6bc36ce8f73f;p=emacs.git

(comment-normalize-vars): Initialize properly if comment-start was nil.
---

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index fb2cf480c0d..7bd4465c9f2 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -224,10 +224,10 @@ terminated by the end of line (i.e. `comment-end' is empty)."
 Functions autoloaded from newcomment.el, being entry points, should call
 this function before any other, so the rest of the code can assume that
 the variables are properly set."
-  (if (not comment-start)
-      (unless noerror
-	(set (make-local-variable 'comment-start)
-	     (read-string "No comment syntax is defined.  Use: ")))
+  (unless (and (not comment-start) noerror)
+    (unless comment-start
+      (set (make-local-variable 'comment-start)
+	   (read-string "No comment syntax is defined.  Use: ")))
     ;; comment-use-syntax
     (when (eq comment-use-syntax 'undecided)
       (set (make-local-variable 'comment-use-syntax)